VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CPedido"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private logica As LPedido
Private lCompania As lCompania
Private lEstado As lEstado
Private LUsuario As LUsuario
Private LEmpleado As LEmpleado
Private lProducto As lProducto
Private LPedido As LPedido
Public Function buscar(bean As bpedido) As Collection
Set buscar = logica.getLista(bean)
End Function
Public Function guardar(bean As bpedido) As Integer
Dim result As Integer
result = LPedido.guardar(bean)
If result = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje errorEncontrado
End If
guardar = result
End Function
Public Sub abrirEditarDetalle(bDetalle As bDetalle, bpedido As bpedido)
    Dim error As Integer
    Set frmEntrarDetalle.listaEmpleado = LEmpleado.getLista()
    Set frmEntrarDetalle.listaServicios = lProducto.getLista(New bproducto)
    Set frmEntrarDetalle.bpedido = bpedido
    Set frmEntrarDetalle.bean = bDetalle
    frmEntrarDetalle.sModo = UtilConstantes.MODO_ACTUALIZAR
    frmEntrarDetalle.Show 1
End Sub
Public Sub abrirEditar(bean As bpedido)
logica.getDetalle bean
Set frmEntrarPedido.listaCompania = lCompania.getLista
Set frmEntrarPedido.ListaEstado = lEstado.getEstadosPedido
Set frmEntrarPedido.listaUsuario = LUsuario.getLista(New busuario)
Set frmEntrarPedido.bean = bean
frmEntrarPedido.Show 1
End Sub
Public Sub eliminarDetalle(bean As bDetalle)
If LPedido.eliminarDetalle(bean) = UtilConstantes.OPT_DATOS_ELIMINADOS Then
    LPedido.getDetalle frmEntrarPedido.bean
    Set frmEntrarPedido.bean = frmEntrarPedido.bean
End If
End Sub
Public Sub abrirIngresarDetalle(bpedido As bpedido)
Dim error As Integer
Set frmEntrarDetalle.listaEmpleado = LEmpleado.getLista()
Set frmEntrarDetalle.listaServicios = lProducto.getLista(New bproducto)
Set frmEntrarDetalle.bpedido = bpedido
frmEntrarDetalle.sModo = UtilConstantes.MODO_NUEVO
frmEntrarDetalle.Show 1
End Sub
Public Sub agregarDetalle(bean As bpedido)
    LPedido.guardaDetalle bean
    LPedido.getDetalle frmEntrarPedido.bean
    Set frmEntrarPedido.bean = frmEntrarPedido.bean
End Sub
Public Sub actualizarDetalle(bean As bDetalle, bpedido As bpedido)
    LPedido.guardaDetalle bpedido
    LPedido.getDetalle frmEntrarPedido.bean
    Set frmEntrarPedido.bean = frmEntrarPedido.bean
End Sub
Private Sub Class_Initialize()
    Set logica = New LPedido
    Set lCompania = New lCompania
    Set lEstado = New lEstado
    Set LUsuario = New LUsuario
    Set LEmpleado = New LEmpleado
    Set lProducto = New lProducto
    Set LPedido = New LPedido
End Sub
Private Sub Class_Terminate()
    Set logica = Nothing
    Set lCompania = Nothing
    Set lEstado = Nothing
    Set LUsuario = Nothing
    Set lProducto = Nothing
    Set LPedido = Nothing
End Sub
